Dates and times with lubridate : : CHEAT SHEET 


Date-times 


2017-11-28 12:00:00 


2017-11-28 12:00:00 


A date-time is a point on the timeline, 
stored as the number of seconds since 


1970-01-01 00:00:00 UTC 


dt <- as_datetime(1511870400) 
## "2017-11-28 12:00:00 UTC" 


PARSE DATE-TIMES (Convert strings or numbers to date-times) 


1. Identify the order of the year (y), month (m), day (d), hour (h), 
minute (m) and second (s) elements in your data. 


2. Use the function below whose name replicates the order. Each 


accepts a tz argument to set the time zone, e.g. ymd(x, tz = ""UTC"). 
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ymd_hms(), ymd_hm(), ymd_h(). 
ymd_hms("2017-11-28T 14:02:00") 


ydm_hms(), ydm_hm(), ydm_h(). 
ydm_hms("2017-22-12 10:00:00") 


mdy_hms(), mdy_hm(), mdy_h(). 
may nms 11728) 201% 0203) 


dmy_hms(), dmy_hm(), dmy_h(). 
dmy_hms("l Jan 2017 23:59:59") 


ymd(), ydm(). ymd(20170131) 
mdy(), myd(). mdy("July 4th, 2000") 
dmy(), dym(). dmy("4th of July '99") 
yq() Q for quarter. yq("2001: Q3") 
my(), ym(). my("07-2020") 
hms::hms() Also lubridate::hms(), 
hm() and ms(), which return 


periods.* hms::hms(sec = 0, min= 1, 
hours = 2, roll = FALSE) 


date_decimal(decimal, tz = "UTC") 
date_decimal(2017.5) 

now(tzone = "") Current time in tz 
(defaults to system tz). now() 
today(tzone = "") Current date ina 
tz (defaults to system tz). today() 


fast_strptime() Faster strptime. 
rast_strptime('9/1/01' ‘%y/%m/%d') 


parse_date_time() Easier strptime. 
parse_date_time("9/1/01", "yma") 


2017-11-28 


A date is a day stored as 
the number of days since 
1970-01-01 


d <-as_date(17498) 
## "2017-11-28" 


GET AND SET COMPONENTS 


Use an accessor function to get a component. 


Assign into an accessor function 
component in place. 
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2018-01-ER] 11:59:59 


2018-01-31 fRI:59:59 
2018-01-31 11:09:59 
2018-01-31 11:59: 
2018-01-31 11:59:59 [id 


































































































































































































RStudio® is a trademark of RStudio, PBC « CC BY SA RStudio + info@rstudio.com • 844-448-1212 + rstudio.com » 


12:00:00 
An hms is a time stored as 


the number of seconds since 
00:00:00 


t<- hms::as.hms(85) 
## 00:01:25 


d ## "2017-11-28" 
day(d) ## 28 
day(d) <- 1 

d ## "2017-11-01" 


to change a 


date(x) Date component. date(dt) 
year(x) Year. year(dt) 

isoyear(x) The ISO 8601 year. 
epiyear(x) Epidemiological year. 


month(x, label, abbr) Month. 
month(dt) 


day(x) Day of month. day(dt) 
wday(x, label, abbr) Day of week. 
qday(x) Day of quarter. 

hour(x) Hour. hour(dt) 

minute(x) Minutes. minute(dt) 
second(x) Seconds. second(ct) 
tz(x) Time zone. tz(dt) 

week(x) Week of the year. week(dt) 
isoweek() ISO 8601 week. 
epiweek() Epidemiological week. 


quarter(x) Quarter. quarter(dt) 


semester(x, with_year = FALSE) 
Semester. semester(dt) 


am(x) Is it in the am? am(dt) 
pm(x) Is it in the pm? pm(dt) 


dst(x) Is it daylight savings? dst(d) 


leap_year(x) Is it a leap year? 
leap_year(d) 


update(object, ..., simple = FALSE) 
update(dt, mday = 2, hour= 1) 


lubridate 


yor 





Round Date-times 


le | floor_date(x, unit = "second") 


Round down to nearest unit. 
floor_date(dt, unit = "month") 


Valid units are second, minute, hour, day, week, month, bimonth, 
quarter, season, halfyear and year. 


rollback(dates, roll_to_first = FALSE, preserve_hms = TRUE) Roll back to 
last day of previous month. Also rollforward(). rollback(ct) 


round_date(x, unit = "second") 
Round to nearest unit. 
round_date(dt, unit = "month") 


ceiling_date(x, unit = "second", 
change_on_boundary = NULL) 
Round up to nearest unit. 
ceiling_date(dt, unit = "month") 


Stamp Date-times 


stamp() Derive a template from an example string and return a new 
function that will apply the template to date-times. Also 
stamp_date() and stamp_time(). 


1. Derive a template, create a function 
sf <- stamp("Created Sunday, Jan 17, 1999 3:34") 


Tip: usea 


date with 
day > 12 





2. Apply the template to dates 
st(ymd("2010-04-05")) 
## [1] "Created Monday, Apr 05, 2010 00:00" 


Time Zones 


R recognizes ~600 time zones. Each encodes the time zone, Daylight 
Savings Time, and historical calendar variations for an area. R assigns 
one time zone per vector. 


Use the UTC time zone to avoid Daylight Savings. 
OlsonNames() Returns a list of valid time zone names. OlsonNames() 
Sys.timezone() Gets current time zone. 


5:00 6:00 


Mountain Central 7:00 with_tz(time, tzone = "") Get 


the same date-time in a new 
time zone (a new clock time). 
Also local_time(dt, tz, units). 
with_tz(dt, "US/Pacific") 


Eastern 





force_tz(time, tzone = "") Get 
the same clock time in a new 


7:00 7:00 t | 
Eastern time zone (a new date-time). 
Also force_tzs(). 
nee. 7:00 rorce_tz(dt, "US/Pacitic") 
Mountain Central 
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M ath W ith D ate -tI MES — Lubridate provides three classes of timespans to facilitate math with dates and date-times. 


Math with date-times relies on the timeline, 
which behaves inconsistently. Consider how 
the timeline behaves during: 


A normal day 
nor <- ymd_hms("2018-01-01 01:30:00"tz="US/Eastern”) 


SS aaa oe 


1:00 2:00 3:00 4:00 


The start of daylight savings (spring forward) 
gap <- ymd_hms("2018-03-11 01:30:00",tz="US/Eastern’) 


—_—_— +> 


1:00 2:00 3:00 4:00 


The end of daylight savings (fall back) 
lap <- ynd_hms("2018-11-04 00:30:00",tz="US/Eastern") 


a a a 


12:00 1:00 2:00 3:00 


Leap years and leap seconds 


Periods track changes in clock times, 
which ignore time line irregularities. 


nor + minutes(90) 


Durations track the passage of 
physical time, which deviates from 
clock time when irregularities occur. 


nor + dminutes(90) 





1:00 2:00 3:00 4:00 


gap + minutes(90) 


E 


1:00 2:00 3:00 4:00 
lap + minutes(90) 
12:00 1:00 2:00 3:00 


leap + years(1) 


1:00 2:00 3:00 4:00 


gap + dminutes(90) 


oe AIII , 


1:00 2:00 3:00 4:00 


lap + dminutes(90) 





COGIDO 
12:00 1:00 2:00 3:00 
leap + dyears(1) 


Intervals represent specific intervals 
of the timeline, bounded by start and 
end date-times. 


interval(nor, nor + minutes(90)) 





1:00 2:00 3:00 4:00 


interval(gap, gap + minutes(90)) 





1:00 2:00 3:00 4:00 


interval(lap, lap + minutes(90)) 





12:00 1:00 2:00 3:00 


interval(leap, leap + years(1)) 


ou 


Not all years o 
are 365 days lubridate 
due to leap days. 


ys? 





Not all minutes 
are 60 seconds due to 
leap seconds. 


It is possible to create an imaginary date 
by adding months, e.g. February 31st 


jan31 <- ymd(20180131) 
jan31 + months(1) 
## NA 


%m+% and %m-% will roll imaginary 
dates to the last day of the previous 
month. 


jan31 %m+% months(1) 
## "2018-02-28" 


add_with_rollback(el, e2, roll_to_first = 
TRUE) will roll imaginary dates to the 
first day of the new month. 


add_with_rollback(jan31, months(1), 
roll_to_first = TRUE) 
## "2018-03-01" 


leap <- ymd("2019-03-01") 


2020 2021 





PERIODS 


Add or subtract periods to model events that happen at specific clock 
times, like the NYSE opening bell. 


DURATIONS 


Add or subtract durations to model physical processes, like battery life. 
Durations are stored as seconds, the only time unit with a consistent length. 
Difftimes are a class of durations found in base R. 


INTERVALS 


Divide an interval by a duration to determine its physical length, divide 
an interval by a period to determine its implied length in clock time. 


Start | End 


Make a period with the name of a time unit pluralized, e.g. Make a duration with the name of a period prefixed with a d, e.g. Make an interval with interval() or %--%, e.g. Date | Date 





i <- interval(ymd("2017-01-01"), d) 
j <- d %--% ymd("2017-12-31") 


e 


## 2017-01-01 UTC--2017-11-28 UTC 


<- months(3) + days(12 ears(x = 1) x years. 
: 7 i n 4 l ## 2017-11-28 UTC--2017-12-31 UTC 


p months(x) x months. 
3m 12d 0H OM 0S weeks(x = 1) x weeks. 


Number f| Number Gaye Gaye 

of months | of days hours(x = 1) x hours. 

minutes(x = 1) x minutes. 
seconds(x = 1) x seconds. 
milliseconds(x = 1) x milliseconds. 
microseconds(x = 1) x microseconds 
nanoseconds(x = 1) x nanoseconds. 
picoseconds(x = 1) x picoseconds. 


dyears(x = 1) 31536000x seconds. 
dmonths(x = 1) 2629800x seconds. 
dweeks(x = 1) 604800x seconds. 
ddays(x = 1) 86400x seconds. 
dhours(x = 1) 3600x seconds. 
dminutes(x = 1) 60x seconds. 
dseconds(x = 1) x seconds. 
dmilliseconds(x = 1) x x 10-3 seconds. 
dmicroseconds(x = 1) x x 10-6 seconds. 
dnanoseconds(x = 1) x x 10-9 seconds. 
dpicoseconds(x = 1) x x 10-2 seconds. 


dd <- ddays(14) 
dd 


"1209600s (~2 weeks)" bees 
( a Y%within% b Does interval or date-time a fall 


within interval b? now) %within% | 





Equivalent 





in common 
units 





int_start(int) Access/set the start date-time of 
an interval. Also int_end(). int_start(i) <- now(); 
int_start(i) 


int_aligns(int1, int2) Do two intervals share a 
boundary? Also int_overlaps(). int_aligns(i, j) 






int_diff(times) Make the intervals that occur 
between the date-times in a vector. 
v <-c(dt, dt + 100, dt + 1000); int_diff(v) 
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period(num = NULL, units = "second", ...) 
An automation friendly period constructor. 
period(5, unit = "years") 


duration(num = NULL, units = "second", ...) 
An automation friendly duration 
constructor. duration(5, unit = "years") 





int_flip(int) Reverse the direction of an 


as.period(x, unit) Coerce a timespan to a interval. Also int_standardize(). int_flip(i) 


period, optionally in the specified units. 
Also is.period(). as.period(i) 


as.duration(x, ...) Coerce a timespan to a 
duration. Also is.duration(), is.difftime(). 


as.duration(i) int_length(int) Length in seconds. int_length(i) 


period_to_seconds(x) Convert a period to 
the "standard" number of seconds implied 
by the period. Also seconds_to_period(). 
period_to_seconds(p) 


make_difftime(x) Make difftime with the 
specified number of units. 
make_difitime(99999) 


int_shift(int, by) Shifts an interval up or down 
the timeline by a timespan. int_shitt(i, days(-1)) 





as.interval(x, start, ...) Coerce a timespan to 

an interval with the start date-time. Also 

is.interval(). as.interval(days(1), start = now()) 
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